home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE10 / ADROCK / ADDATE.ZIP / ADDATE.HIS < prev    next >
Encoding:
Text File  |  1996-04-10  |  5.9 KB  |  98 lines
  1. {***************************************************************************************************}
  2. {*             TADROCK Date Class - History File - Copyright Byte Computer & Software Ltd          *}
  3. {***************************************************************************************************}
  4.  
  5. Version  Release Date  Comments About Release
  6. -------  ------------  ------------------------------------------------------------------------------
  7.   1.00      Mar 1996   Initial Release to Compuserve.....
  8.   1.10      Mar 1996   Added some Business and Holiday Routines..
  9.                          Function  IsDateWithinRange(TestDate, FirstDate, LastDate : TDatetime)    : Boolean;
  10.                          Function  NextBusinessDay(RequiredDate : TDateTime)  : TDateTime;
  11.                          Function  PrevBusinessDay(RequiredDate : TDateTime)  : TDateTime;
  12.                          Function  ReturnBusinessDaysBetweenDates(FirstDate, LastDate : TDatetime) : Integer;
  13.                          Function  VerbalDate(WorkDate : TDatetime) : String;
  14.  
  15.                          Function  IsMonday(WorkDate : TDateTime) : Boolean;
  16.                          Function  IsTuesday(WorkDate : TDateTime) : Boolean;
  17.                          Function  IsWednesday(WorkDate : TDateTime) : Boolean;
  18.                          Function  IsThursday(WorkDate : TDateTime) : Boolean;
  19.                          Function  IsFriday(WorkDate : TDateTime) : Boolean;
  20.                          Function  IsSaturday(WorkDate : TDateTime) : Boolean;
  21.                          Function  IsSunday(WorkDate : TDateTime) : Boolean;
  22.  
  23.                          Function  IsJanuary(WorkDate : TDateTime) : Boolean;
  24.                          Function  IsFebruary(WorkDate : TDateTime) : Boolean;
  25.                          Function  IsMarch(WorkDate : TDateTime) : Boolean;
  26.                          Function  IsApril(WorkDate : TDateTime) : Boolean;
  27.                          Function  IsMay(WorkDate : TDateTime) : Boolean;
  28.                          Function  IsJune(WorkDate : TDateTime) : Boolean;
  29.                          Function  IsJuly(WorkDate : TDateTime) : Boolean;
  30.                          Function  IsAugust(WorkDate : TDateTime) : Boolean;
  31.                          Function  IsSeptember(WorkDate : TDateTime) : Boolean;
  32.                          Function  IsOctober(WorkDate : TDateTime) : Boolean;
  33.                          Function  IsNovember(WorkDate : TDateTime) : Boolean;
  34.                          Function  IsDecember(WorkDate : TDateTime) : Boolean;
  35.  
  36.                          Function  IsWeekend(WorkDate : TDateTime) : Boolean;
  37.                          Function  IsWeekday(WorkDate : TDateTime) : Boolean;
  38.  
  39.                          Function  IsAM(WorkDate : TDateTime) : Boolean;
  40.                          Function  IsPM(WorkDate : TDateTime) : Boolean;
  41.                          Function  IsMorning(WorkDate : TDateTime) : Boolean;
  42.                          Function  IsAfternoon(WorkDate : TDateTime) : Boolean;
  43.  
  44.                          Function  IsMidday(WorkDate : TDateTime) : Boolean;
  45.                          Function  IsMidNight(WorkDate : TDateTime) : Boolean;
  46.  
  47.                          Function  IsChristmasDay(WorkDate : TDateTime) : Boolean;
  48.                          Function  IsNewYearsDay(WorkDate : TDateTime) : Boolean;
  49.  
  50.                          Function  IsFirstOfTheMonth(WorkDate : TDateTime) : Boolean;
  51.                          Function  IsLastOfTheMonth(WorkDate : TDateTime) : Boolean;
  52.  
  53.                          Function  IsBusinessDay(WorkDate : TDateTime) : Boolean;
  54.                          Function  IsDateInPosNegRange(WorkDate, CompareDate : TDateTime; PositiveDays, NegativeDays : Integer) : Boolean;
  55.                          function  IsDateInPosNegBusinessRange(WorkDate, CompareDate : TDateTime; PositiveDays, NegativeDays : Integer) : Boolean;
  56.                          Function  AddBusinessDays(NumberOfDays : Integer; WorkDate :TDateTime) : TDateTime;
  57.  
  58.                          Function  IsHoliday(WorkDate : TDateTime) : Boolean;
  59.                          Function  IsBusinessHoliday(WorkDate : TDateTime) : Boolean;
  60.                          Procedure SetHolidayStringList(NewHolidayStringList : TStrings);
  61.  
  62.   1.20    9 Apr 1996   Added function IsEmpty() which tests for an empty date string being passed.
  63.                        Added function ReturnFirstOfAWeek() which will return the date for the first day of
  64.                        the week for any starting week day.
  65.                        Added function ReturnLastOfAWeek() which will return the date for the last day of
  66.                        the week for any starting week day.
  67.  
  68.                        All the functions in the class can now be called directly without having to
  69.                        declare a TAdrockDate variable. All the functions have the same names, and
  70.                        parameters as they do in the class.
  71.  
  72.                        Below is how you USE TO HAVE to call the routines..
  73.  
  74.                        Uses AdDate;
  75.  
  76.                        procedure TTestForm.Button1Click(Sender: TObject);
  77.                        Var
  78.                          AdDate  : TAdrockDates
  79.                          IsValid : Boolean;
  80.                        begin
  81.                          AdDate := TAdrockDates.Create;
  82.                          IsValid := AdDate.IsValidDate('55/55/96');
  83.                          AdDate.Free;
  84.                        end;
  85.  
  86.                        Below is the NEWER EASIER way to call the routines in the class.....
  87.  
  88.                        Uses AdDate;
  89.  
  90.                        procedure TTestForm.Button1Click(Sender: TObject);
  91.                        Var
  92.                          IsValid : Boolean;
  93.                        begin
  94.                          { !! IsValidDate returns true or false, it never causes an exception !!}
  95.                          IsValid := IsValidDate('55/55/96');
  96.                        end;
  97.  
  98.